Module modProcess
    Public Sub Process_Kill(ByVal procName As String)

        Dim i As Integer

        Dim procList = Process.GetProcessesByName(procName)

        For i = 0 To procList.Count - 1

            Try

                procList(i).Kill()

            Catch ex As Exception

                MessageBox.Show(ex.Message)

            End Try

        Next i
    End Sub

    Public Function Process_Find(ByVal procName As String) As Boolean

        Dim procList = Process.GetProcessesByName(procName)

        If procList.Count > 0 Then

            Return True

        Else

            Return False

        End If
    End Function

    Public Function Process_Launch(ByVal filePath As String) As Boolean

        Dim procStartInfo As New ProcessStartInfo

        If File_Exists(filePath) = False Then

            Return False

        End If

        With procStartInfo
            .UseShellExecute = True
            .FileName = filePath
            .WindowStyle = ProcessWindowStyle.Normal
        End With

        Process.Start(procStartInfo)

        Return True
    End Function
End Module